subroutine foo(x)
  x = x + 5 + 2 * x + sin(x+2.0)
  x = 5.0
  x =  13.2
end subroutine foo
